﻿Public Class FormTester
    Inherits DevExpress.XtraEditors.XtraForm
    Private Sub MasterMacetToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MasterMacetToolStripMenuItem.Click
        Dim a As New t01_master_macet
        With a
            .ShowDialog()
        End With
    End Sub

    Private Sub MasterSopirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MasterSopirToolStripMenuItem.Click
        Dim a As New t02_master_sopir
        With a
            .ShowDialog()
        End With
    End Sub

    Private Sub MasterTitikToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MasterTitikToolStripMenuItem.Click
        'Dim a As New t03_master_titik
        'With a
        '    .ShowDialog()
        'End With
        t03_master_titik.ShowDialog()
    End Sub

    Private Sub MasterTrukToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MasterTrukToolStripMenuItem.Click
        Dim a As New t04_master_truk
        With a
            .ShowDialog()
        End With
    End Sub

    Private Sub MasterUserToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MasterUserToolStripMenuItem.Click
        Dim a As New t05_master_user
        With a
            .ShowDialog()
        End With
    End Sub

    Private Sub RuteToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RuteToolStripMenuItem1.Click
        Dim a As New t01_rute
        With a
            .ShowDialog()
        End With
    End Sub

    Private Sub TugasToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TugasToolStripMenuItem1.Click
        Dim a As New form_penjadwalan
        With a
            .ShowDialog()
        End With
    End Sub

    Private Sub RuteTugasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RuteTugasToolStripMenuItem.Click
        Dim a As New t02_tugas_rute
        With a
            .ShowDialog()
        End With
    End Sub

    Private Sub TugasTPSToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TugasTPSToolStripMenuItem.Click
        Dim a As New t03_tugas_tps
        With a
            .ShowDialog()
        End With
    End Sub

    Private Sub FormTester_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DevExpress.Skins.SkinManager.EnableFormSkins()
        DevExpress.UserSkins.BonusSkins.Register()
        DevExpress.UserSkins.OfficeSkins.Register()
        Me.LookAndFeel.SkinName = "Office 2010 Blue"
        DefaultLookAndFeel1.LookAndFeel.SkinName = "Office 2010 Blue"
    End Sub

    Private Sub CetakDataTPSToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CetakDataTPSToolStripMenuItem.Click
        'Dim a As New report_tps
        'With a
        '    .ShowDialog()
        'End With
    End Sub

    Private Sub LogoutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LogoutToolStripMenuItem.Click
        Me.Hide()
        Form1.Show()
        Form1.TextBox1.Text = ""
        Form1.TextBox2.Text = ""
    End Sub

    Private Sub CetakDataSopirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CetakDataSopirToolStripMenuItem.Click
        form_rekap_sopir.ShowDialog()
    End Sub

    Private Sub MasterTPAToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MasterTPAToolStripMenuItem.Click
        master_tpa.Show()
    End Sub

    Private Sub MasterPoolToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MasterPoolToolStripMenuItem.Click
        master_pool.Show()
    End Sub
End Class